100 T = PEEK(55) + 256*PEEK(56)
110 POKE 56, PEEK(46)+2
120 POKE 52, PEEK(56)
130 PRINT "[147]FUNCTION KEYS":PRINT
200 DIM F$(12)
210 F$(1) = "LIST "
220 F$(2) = "LOAD"+CHR$(34)
230 F$(3) = "RUN"
240 F$(4) = "SAVE"+CHR$(34)+"@:"
250 F$(5) = "PRINT PEEK(     )[157][157][157][157][157][157]"
260 F$(6) = "OPEN 15,8,15,"+CHR$(34)
270 F$(7) = "PRINT FRE(0)"
280 F$(8) = "CLOSE 15"
290 F$(9) = "GOTO "
300 F$(10) = "GOSUB "
310 F$(11) = "RETURN"
320 F$(12) = "POKE "
330 FOR I = 1 TO 12
340 PRINT "F" + RIGHT$(STR$(I),LEN(STR$(I))-1) + " = ";
345 PRINT CHR$(34) + F$(I) + CHR$(34)
350 NEXT I
400 L = 0
410 FOR I = 1 TO 12
420 L = L + LEN(F$(I))
430 NEXT I
435 IF L > 231 THEN PRINT "STRINGS TOO LONG": GOTO 800
440 SM = T - 120
450 SS = T - L - 144
500 PP = SS: SP = SS + 12
510 FOR I = 1 TO 7 STEP 2: GOSUB 1000: NEXT I
520 FOR I = 2 TO 8 STEP 2: GOSUB 1000: NEXT I
530 FOR I = 9 TO 12: GOSUB 1000: NEXT I
600 FOR I = SM TO SM+119
610 READ B
611 SU = SU + B
612 C = C + 1
613 IF C<>19 AND I<>(SM+119) THEN 620
614 READ CH
615 IF CH = SU THEN C=0: SU=0: GOTO 620
616 PRINT: PRINT "DATA STATEMENT ERROR"
617 PRINT "IN LINE"; PEEK(63) + 256*PEEK(64)
618 GOTO 800
620 POKE I, B
630 NEXT I
700 POKE 2, SM/256
710 POKE 1, SM-256*PEEK(2)
720 POKE 252, SS/256
730 POKE 251, SS-256*PEEK(252)
740 POKE 649, 9
750 POKE 55, PEEK(251): POKE 56, PEEK(252)
760 POKE 51, PEEK(251): POKE 52, PEEK(252)
770 SYS 0
780 NEW
800 POKE 56, T/256
810 POKE 55, T - 256*PEEK(56)
820 END
1000 POKE PP, SP-SS: PP = PP+1
1005 IF F$(I) = "" THEN 1060
1010 FOR J = 1 TO LEN(F$(I))
1030 POKE SP, ASC(MID$(F$(I),J,1))
1040 SP = SP+1
1050 NEXT J
1060 POKE SP, 0
1070 SP = SP + 1
1080 RETURN
9000 DATA120,165,2,141,21,3,165,1,24,105,21,144,3,238,21,3,141,20,3,1341
9010 DATA88,96,165,198,208,92,165,254,240,9,169,0,133,254,164,253,24,144,56,2712
9020 DATA162,3,169,63,197,197,240,13,56,233,8,202,16,246,169,255,141,128,2,2500
9030 DATA48,58,134,253,162,0,173,141,2,201,1,208,2,162,4,201,2,208,2,1962
9040 DATA162,8,138,24,101,253,205,128,2,240,30,141,128,2,168,177,251,168,162,2488
9050 DATA0,177,251,240,17,157,119,2,200,232,134,198,224,9,208,241,132,253,169,2963
9060 DATA1,133,254,76,191,234,889